home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / display.spr < prev    next >
Encoding:
Text File  |  1994-07-10  |  6.8 KB  |  235 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 07/10/94             DISPLAY.SPR               14:49:31 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *               Windows Window definitions                
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF NOT WEXIST("display") ;
  45.     OR UPPER(WTITLE("DISPLAY")) == "DISPLAY.PJX" ;
  46.     OR UPPER(WTITLE("DISPLAY")) == "DISPLAY.SCX" ;
  47.     OR UPPER(WTITLE("DISPLAY")) == "DISPLAY.MNX" ;
  48.     OR UPPER(WTITLE("DISPLAY")) == "DISPLAY.PRG" ;
  49.     OR UPPER(WTITLE("DISPLAY")) == "DISPLAY.FRX" ;
  50.     OR UPPER(WTITLE("DISPLAY")) == "DISPLAY.QPR"
  51.     DEFINE WINDOW display ;
  52.         AT  0.250, 4.625  ;
  53.         SIZE 29.000,112.600 ;
  54.         TITLE "Personal Information" ;
  55.         FONT "MS Sans Serif", 8 ;
  56.         FLOAT ;
  57.         CLOSE ;
  58.         MINIMIZE ;
  59.         SYSTEM
  60.     MOVE WINDOW display CENTER
  61. ENDIF
  62.  
  63.  
  64. *       *********************************************************
  65. *       *                                                         
  66. *       *              DISPLAY/Windows Screen Layout              
  67. *       *                                                         
  68. *       *********************************************************
  69. *
  70.  
  71. #REGION 1
  72. IF WVISIBLE("display")
  73.     ACTIVATE WINDOW display SAME
  74. ELSE
  75.     ACTIVATE WINDOW display NOSHOW
  76. ENDIF
  77. @ 16.462,48.000 SAY "Office" ;
  78.     FONT "MS Sans Serif", 8 ;
  79.     STYLE "BT"
  80. @ 16.462,56.400 SAY roster.office ;
  81.     SIZE 1.000,3.800 ;
  82.     FONT "MS Sans Serif", 8
  83. @ 16.462,78.000 SAY "Unique" ;
  84.     FONT "MS Sans Serif", 8 ;
  85.     STYLE "BT"
  86. @ 16.462,92.800 SAY STR(Roster.unique) ;
  87.     SIZE 1.000,14.600 ;
  88.     FONT "MS Sans Serif", 8
  89. @ 0.077,0.000 SAY "Name" ;
  90.     FONT "MS Sans Serif", 8 ;
  91.     STYLE "BT"
  92. @ 0.077,14.800 SAY roster.name ;
  93.     SIZE 1.000,47.600 ;
  94.     FONT "MS Sans Serif", 8 ;
  95.     COLOR RGB(0,0,0,,,,)
  96. @ 0.077,63.600 SAY "Nickname" ;
  97.     FONT "MS Sans Serif", 8 ;
  98.     STYLE "BT"
  99. @ 0.077,77.400 SAY roster.nickname ;
  100.     SIZE 1.000,31.600 ;
  101.     FONT "MS Sans Serif", 8
  102. @ 20.769,0.000 SAY "Lang1" ;
  103.     FONT "MS Sans Serif", 8 ;
  104.     STYLE "BT"
  105. @ 20.769,14.400 SAY ALLTRIM(Roster.lang1) + ', ' +  ALLTRIM(Roster.lang2) + ', ' +  ALLTRIM(Roster.lang3) ;
  106.     SIZE 1.000,97.000 ;
  107.     FONT "MS Sans Serif", 8
  108. @ 1.846,64.000 SAY "Yr Join" ;
  109.     FONT "MS Sans Serif", 8 ;
  110.     STYLE "BT"
  111. @ 1.846,77.400 SAY roster.join ;
  112.     SIZE 1.000,5.000 ;
  113.     FONT "MS Sans Serif", 8
  114. @ 22.615,0.000 SAY "Avg Sales" ;
  115.     FONT "MS Sans Serif", 8 ;
  116.     STYLE "BT"
  117. @ 22.615,14.400 SAY roster.sales ;
  118.     SIZE 1.000,7.400 ;
  119.     FONT "MS Sans Serif", 8
  120. @ 18.077,0.400 SAY "Desig" ;
  121.     FONT "MS Sans Serif", 8 ;
  122.     STYLE "BT"
  123. @ 1.846,0.000 SAY "Yr License" ;
  124.     FONT "MS Sans Serif", 8 ;
  125.     STYLE "BT"
  126. @ 1.846,14.800 SAY Roster.license ;
  127.     SIZE 1.000,4.600 ;
  128.     FONT "MS Sans Serif", 8 ;
  129.     PICTURE "@Z"
  130. @ 2.923,14.800 SAY Roster.achiev ;
  131.     SIZE 1.000,26.800 ;
  132.     FONT "MS Sans Serif", 8
  133. @ 4.000,14.800 SAY Roster.club ;
  134.     SIZE 1.000,4.600 ;
  135.     FONT "MS Sans Serif", 8
  136. @ 5.077,14.800 SAY Roster.posistion ;
  137.     SIZE 1.000,40.800 ;
  138.     FONT "MS Sans Serif", 8
  139. @ 6.846,14.400 SAY Roster.offname ;
  140.     SIZE 1.000,40.800 ;
  141.     FONT "MS Sans Serif", 8
  142. @ 8.769,14.400 SAY Roster.offadd1 +  Roster.offadd2 ;
  143.     SIZE 1.000,82.800 ;
  144.     FONT "MS Sans Serif", 8
  145. @ 10.692,14.400 SAY Roster.city ;
  146.     SIZE 1.000,22.600 ;
  147.     FONT "MS Sans Serif", 8
  148. @ 10.692,39.400 SAY Roster.state ;
  149.     SIZE 1.000,5.200 ;
  150.     FONT "MS Sans Serif", 8
  151. @ 10.692,46.400 SAY Roster.zip ;
  152.     SIZE 1.000,13.000 ;
  153.     FONT "MS Sans Serif", 8
  154. @ 10.692,64.400 SAY Roster.country ;
  155.     SIZE 1.000,27.000 ;
  156.     FONT "MS Sans Serif", 8
  157. @ 12.615,14.400 SAY Roster.phone1 + '    ' + Roster.phone2 + '    ' + Roster.phone3 + '    ' +Roster.phone4  ;
  158.     SIZE 1.000,82.800 ;
  159.     FONT "MS Sans Serif", 8
  160. @ 13.769,14.400 SAY Roster.fax ;
  161.     SIZE 1.000,15.800 ;
  162.     FONT "MS Sans Serif", 8
  163. @ 2.923,0.000 SAY "Lifetime Ach" ;
  164.     FONT "MS Sans Serif", 8 ;
  165.     STYLE "BT"
  166. @ 4.000,0.000 SAY "Club" ;
  167.     FONT "MS Sans Serif", 8 ;
  168.     STYLE "BT"
  169. @ 5.077,0.000 SAY "Posistion" ;
  170.     FONT "MS Sans Serif", 8 ;
  171.     STYLE "BT"
  172. @ 6.615,0.000 SAY "Office" ;
  173.     FONT "MS Sans Serif", 8 ;
  174.     STYLE "BT"
  175. @ 7.769,0.000 SAY "Address" ;
  176.     FONT "MS Sans Serif", 8 ;
  177.     STYLE "BT"
  178. @ 12.615,0.200 SAY "Phone #'s" ;
  179.     FONT "MS Sans Serif", 8 ;
  180.     STYLE "BT"
  181. @ 13.769,0.400 SAY "Fax" ;
  182.     FONT "MS Sans Serif", 8 ;
  183.     STYLE "BT"
  184. @ 15.308,0.400 SAY "CompuServ" ;
  185.     FONT "MS Sans Serif", 8 ;
  186.     STYLE "BT"
  187. @ 15.462,14.400 SAY Roster.compuserv ;
  188.     SIZE 1.000,22.600 ;
  189.     FONT "MS Sans Serif", 8
  190. @ 16.462,0.600 SAY "Region #" ;
  191.     FONT "MS Sans Serif", 8 ;
  192.     STYLE "BT"
  193. @ 19.538,0.000 SAY "Comm Sub" ;
  194.     FONT "MS Sans Serif", 8 ;
  195.     STYLE "BT"
  196. @ 16.615,14.400 SAY Roster.region ;
  197.     SIZE 1.000,1.800 ;
  198.     FONT "MS Sans Serif", 8
  199. @ 18.154,14.400 SAY Roster.desig1 + '    ' +  Roster.desig2 + '    '+  Roster.desig3 + '    ' +  Roster.desig4 + '    ' +  Roster.desig5 + '    ' +  Roster.desig6 ;
  200.     SIZE 1.000,71.200 ;
  201.     FONT "MS Sans Serif", 8
  202. @ 24.154,0.200 SAY "Service" + CHR(13) + ;
  203.         "Areas" ;
  204.     SIZE 2.000,7.333, 0.000 ;
  205.     FONT "MS Sans Serif", 8 ;
  206.     STYLE "BT"
  207. @ 24.154,14.200 SAY Roster.service1 + ',' +  Roster.service2 ;
  208.     SIZE 1.000,83.200 ;
  209.     FONT "MS Sans Serif", 8
  210. @ 25.308,14.200 SAY Roster.service3 + ',' +  Roster.service4 ;
  211.     SIZE 1.000,56.200 ;
  212.     FONT "MS Sans Serif", 8
  213.  
  214. IF NOT WVISIBLE("display")
  215.     ACTIVATE WINDOW display
  216. ENDIF
  217.  
  218. READ CYCLE ;
  219.     DEACTIVATE .T.
  220.  
  221. RELEASE WINDOW display
  222. SELECT (m.currarea)
  223.  
  224.  
  225. #REGION 0
  226.  
  227. SET READBORDER &rborder
  228.  
  229. IF m.talkstat = "ON"
  230.     SET TALK ON
  231. ENDIF
  232. IF m.compstat = "ON"
  233.     SET COMPATIBLE ON
  234. ENDIF
  235.